home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t8.d64 / lottery.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  72 lines
  1. 0 GOTO 160
  2. 1 "
  3. 2 "WRITTEN BY ROBERT K. SCHMID
  4. 3 "DECEMBER 4, 1983 FOR TPUG
  5. 4 "
  6. 5 POKE 53280,0:POKE 53281,0:PRINT""
  7. 6 CLR
  8. 7 TI$="000000"
  9. 8 GOTO 100
  10. 9 REM   *** ENTER YOUR NUMBERS HERE ***
  11. 10 U=64
  12. 11 V=64
  13. 12 W=64
  14. 13 X=64
  15. 14 Y=64
  16. 15 Z=64
  17. 16 REM  *******************************
  18. 20 M=INT(49*RND(1))
  19. 21 N=INT(49*RND(1))
  20. 22 O=INT(49*RND(1))
  21. 23 P=INT(49*RND(1))
  22. 24 Q=INT(49*RND(1))
  23. 25 R=INT(49*RND(1))
  24. 30 IF U=M AND V=N AND W=O AND X=P AND Y=Q AND Z=R THEN 50
  25. 31 C=C+1
  26. 32 GOTO 110
  27. 50 END
  28. 100 PRINT"[147]":PRINT"    LOTTERY SIMULATION"
  29. 101 PRINT"    [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":PRINT
  30. 102 PRINT"H[146]OW MUCH MONEY HAVE I SPENT?"
  31. 103 PRINT"C[146]OMPUTER HAS BEEN RUNNING FOR?"
  32. 104 PRINT"Y[146]EARS I HAVE TRIED TO WIN?"
  33. 105 PRINT"G[146]IVE UP"
  34. 110 GET A$
  35. 115 IF A$="H" THEN 130
  36. 116 IF A$="C" THEN 140
  37. 117 IF A$="Y" THEN 150
  38. 118 IF A$="G" THEN 50
  39. 120 GOTO 20
  40. 121 FOR A=1 TO 2000:NEXT A
  41. 122 GOTO 100
  42. 130 PRINT:PRINT:PRINT C;"DOLLARS!"
  43. 131 FOR A=1 TO 2000:NEXT A
  44. 132 GOTO 100
  45. 140 PRINT:PRINT:PRINT LEFT$(TI$,2);" HOURS AND ";MID$(TI$,3,2);" MINUTES"
  46. 141 FOR A=1 TO 2000:NEXT A
  47. 142 GOTO 100
  48. 150 PRINT:PRINT
  49. 151 PRINT C/52;"YEARS!"
  50. 152 FOR A=1 TO 2000:NEXT A
  51. 153 GOTO 100
  52. 160 PRINT"[147]        6/49 LOTTERY SIMULATION"
  53. 161 PRINT:PRINTTAB(6)"WRITTEN BY ROBERT K. SCHMID"
  54. 162 PRINT:PRINT:PRINT
  55. 163 PRINT"THIS PROGRAM WILL ALLOW YOU TO ENTER"
  56. 164 PRINT"YOUR 'LUCKY' NUMBERS INTO THE COMPUTER."
  57. 165 PRINT"THE COMPUTER WILL THEN CHOOSE RANDOM"
  58. 166 PRINT"NUMBERS AND COMPARE IT TO YOUR TICKET"
  59. 167 PRINT"TO SEE IF YOU'VE WON THE 'JACKPOT' OF"
  60. 168 PRINT"ONE MILLION DOLLARS. CHOOSE SIX NUMBERS"
  61. 169 PRINT"WHOSE VALUES ARE BETWEEN 0 AND 49 AND"
  62. 170 PRINT"THEN ENTER THEM INTO LINES 10 THROUGH"
  63. 171 PRINT"15. THIS PROGRAM WAS MADE SO THAT PEOPLE";
  64. 172 PRINT"WHO PLAY LOTTERIES WILL HOPEFULLY LEARN"
  65. 173 PRINT"WHAT THEIR ODDS OF WINNING ARE."
  66. 174 PRINT"IF YOU DON'T PLAY LOTTERIES, WELL, THEN"
  67. 175 PRINT"YOU CAN LAUGH AT THE PEOPLE WHO DO!"
  68. 176 PRINT:PRINT"             PRESS ANY KEY"
  69. 177 GET A$:IF A$="" THEN 177
  70. 178 PRINT:PRINT"ENTER YOUR VALUES AND THEN TYPE 'RUN 5'."
  71. 179 LIST 10-15
  72.